home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / MOVENAME.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  352b  |  24 lines
  1. ' MOVENAME.BAS
  2. ' This program "moves" a name across the screen.
  3.  
  4. CONST DELAY% = 400
  5.  
  6. CLS
  7.  
  8. INPUT "Please enter your first name:  ", name$
  9. LOCATE 10, 1
  10. PRINT name$
  11.  
  12. FOR i% = 2 TO 70
  13.     LOCATE 10, i% - 1
  14.     PRINT SPACE$(10)
  15.     LOCATE 10, i%
  16.     PRINT name$
  17.    
  18.     FOR j% = 1 TO DELAY%        ' delay loop
  19.     NEXT j%
  20.  
  21. NEXT i%
  22.  
  23.  
  24.